﻿#!perl
package TC;
require Exporter;

use threads;
use threads::shared;

our @ISA = qw(Exporter);
my $a = '333';
our $b = '44';
local $c = '66';
sub new {
	my $self = {};
	$self->{a} = [2];
	$self->{obj} = AClass->new();
	return bless $self, shift;
}

my $num : shared = 0;

sub add : locked method{
	#$num ++;
	shift->{a}->[0] ++;
}

sub show {
	#print "num = $num\n";
	print "a = ", shift->{a}->[0] , "\n";
}

sub showkw{
	#print join "\n", sort keys %TC::;
	print mainfun;
	print TaskMgr->new;
}
1;
